0 PRINT"[147]"TAB(14)"TIME ANGLE"
1 REM ==================================
2 REM    COMMODARES PROBLEM #58-2 :
3 REM       TIME ANGLE
4 REM    SOLUTION BY
5 REM       JIM BORDEN
6 REM ==================================
10 POKE 208,1: POKE 842,34: INPUT "HH:MM:SS";T$: IF LEN(T$)<>8 GOTO 10
20 REM  198    &    631     FOR C-64 USERS
30 H=VAL(LEFT$(T$,2)): M=VAL(MID$(T$,4,2)): S=VAL(RIGHT$(T$,2))
40 IF H>11 THEN H=H-12: IF H>11 THEN H=H-12
50 M=M*6+S*.1: H=(H+M/360)*30: A=ABS(H-M): IF A>180 THEN A=360-A
60 PRINT "ANGLE ="; A; "DEGREES"
70 GOTO 10